home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wonky Flux Batch 2019 02
/
Wonky_Flux_Batch_2019-02.zip
/
Wonky Flux Batch 2019-02
/
021 - HO Utilities - Clock Utility System.dsk
/
STARTUP.bas
< prev
next >
Wrap
BASIC Source File
|
2019-02-16
|
2KB
|
51 lines
10 GOSUB 50000: PRINT CHR$(21): HOME : VTAB 24: PRINT "Copyright (C) 1986 Applied Engineering";: VTAB 1: PRINT
20 REM * ProDOS Time *
30 REM * Utilities Menu *
40 VTAB 1
50 A$ = "TimeMaster II H.O.": GOSUB 1000
60 A$ = "ProDOS Time Utilities": GOSUB 1000
70 A$ = "------ ---- ---------": GOSUB 1000
80 HT = 3
90 PRINT : PRINT
100 PRINT : HTAB HT: PRINT "1). Install AppleWorks Time Utility"
110 PRINT : HTAB HT: PRINT "2). Set Clock"
120 PRINT : HTAB HT: PRINT "3). Display Time and Date"
130 PRINT : HTAB HT: PRINT "4). Install TPCE and exit to BASIC"
140 PRINT : HTAB HT: PRINT "5). Talking Clock (with AE Phasor)"
150 PRINT : HTAB HT: PRINT "6). Exit to BASIC"
160 PRINT
170 PRINT : HTAB HT: PRINT "Choose option an Option? ";
180 GET A$: IF A$ = CHR$(27) THEN 700
190 ON VAL(A$) GOTO 200,300,400,500,600,700: GOTO 180
200 PRINT A$
210 PRINT CHR$(4)"-AW.MENU"
300 PRINT A$
310 PRINT CHR$(4)"-SET.CLOCK"
400 PRINT A$
410 PRINT CHR$(4)"-TIME.DATE.DISPL"
500 PRINT A$
510 PRINT CHR$(4)"-TPCE"
520 PRINT CHR$(4)"HELP"
530 NEW
540 END
600 PRINT A$
610 VTAB 21: PRINT "WHAT SLOT IS PHASOR IN? (N FOR NONE) ";: GET Q$: PRINT Q$:SLOT = VAL(Q$)
620 IF Q$ = CHR$(27) OR Q$ = "N" OR Q$ = "n" THEN 40
630 IF SLOT <1 OR SLOT >7 THEN PRINT CHR$(7): GOTO 610
640 POKE 49268,1: REM SLOW DOWN TRANSWARP
650 H = 30464: IF ( PEEK(116) +4) *256 + PEEK(115) = H THEN 610
660 PRINT CHR$(4)"BLOAD TTS": POKE 8710,SLOT: CALL 8192
670 PRINT CHR$(4)"-TALKING.CLOCK"
700 HOME
710 NEW
720 END
1000 HTAB (40 - LEN(A$))/2: PRINT A$: RETURN
50000 IF PEEK(64435) = 56 THEN 50030
50010 IF PEEK(64435) = 234 AND PEEK(64286) = 173 THEN 50030
50020 RETURN
50030 HOME
50040 VTAB 10: PRINT "LOWER CASE:abcdefghijklmnopqrstuvwxyz"
50050 PRINT "DISPLAY LOWERCASE LETTERS? (Y/N)";: GET Q$: PRINT Q$
50060 IF Q$ = "N" OR Q$ = "n" THEN PRINT CHR$(4)"BRUN UPPER.CASE": RETURN
50070 IF Q$ < >"Y" AND Q$ < >"y" THEN PRINT CHR$(7): GOTO 50040
50080 RETURN